home *** CD-ROM | disk | FTP | other *** search
/ Dictionnaire Le Robert Junior / DictionnaireLeRobertJunior-8-12-Ans-Win95Mac.bin / DEMO / Control.cst / 00002_Script_REGLAGLE VOLUME < prev    next >
Text File  |  1998-10-29  |  822b  |  27 lines
  1. -- 31/12/97 : correction bug augmentation son avec vidΘo prΘsente
  2.  
  3. on enterFrame
  4.   global gVolume, gbBoucle, gLastMovie, gSoundLevel
  5.   -- La derniere Frame de la demo doit avoir le label "FIN DEMO"
  6.   if the frameLabel <>"FIN DEMO" then
  7.     set the volume of sound 1 = 50*gVolume
  8.     set the volume of sound 2 = 50*gVolume
  9.     set the volume of sound 3 = 50*gVolume
  10.     if the type of the member of sprite 10=#digitalVideo then
  11.       if (voidp(gSoundLevel)) then
  12.         set gSoundLevel=the soundLevel
  13.       end if
  14.       -- LME3, ATLAS
  15.       set the volume of sprite 10 to 50*gVolume
  16.     else
  17.       if not(voidp(gSoundLevel)) then
  18.         if the soundLevel<>gSoundLevel then
  19.           set the soundLevel=gSoundLevel
  20.         end if
  21.       end if
  22.     end if
  23.     pass
  24.   else
  25.     FinDemo()
  26.   end if
  27. end